Những câu hỏi liên quan
Thùy Linhh
Xem chi tiết
nguyễn an phát
24 tháng 5 2021 lúc 11:14

program xuat_hien_k_lan;

uses crt;

var  i,n,k,j:integer;

a,b:array[1..100]of integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

write('nhap k:');readln(k);

for i:=1 to n do

begin

for j:=i to n do

if a[i]=a[j] then inc(b[i]);

end;

for i:=1 to n do

if b[i]>=k then write(a[i]:5);

readln;

end.

Bình luận (0)
APOK FF
Xem chi tiết
Nhật Minh
Xem chi tiết
Nhật Minh
Xem chi tiết
Nhật Minh
Xem chi tiết
nguyễn an phát
Xem chi tiết
Bùi Anh Tuấn
2 tháng 3 2021 lúc 20:13

Bình luận (1)
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:35

uses crt;

var a:array[1..100]of integer;

i,n,tam,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=n downto 1 do 

  write(a[i]:4);

readln;

end.

Bình luận (0)
Huyền Trang
Xem chi tiết
le hong trinh
Xem chi tiết
Anh Thư Nguyễn
Xem chi tiết
Chuu
Xem chi tiết